The Netherlands - A Compact World/The Netherlands.iso/chapters/2.4.6.dxr/Internal_22_scrollup V3.ls

Text File | 2004-06-10 | 1009 b | 49 lines

property spriteNum

on mouseDown me
  global ankertje, scrollup
  if member(sprite(102).member).scrollTop > 4 then
    member(sprite(102).member).scrollTop = member(sprite(102).member).scrollTop - 10
  end if
  ankertje = the milliSeconds
  scrollup = 1
end

on enterFrame
  global scrollup, ankertje
  if member(sprite(102).member).scrollTop > 4 then
    sprite(spriteNum).blend = 100
  else
    sprite(spriteNum).blend = 20
  end if
  if scrollup = 1 then
    if the milliSeconds > (ankertje + 100) then
      if member(sprite(102).member).scrollTop > 4 then
        member(sprite(102).member).scrollTop = member(sprite(102).member).scrollTop - 10
      end if
    end if
  end if
end

on mouseUp
  global scrollup
  scrollup = 0
end

on mouseUpOutSide
  global scrollup
  scrollup = 0
end

on mouseEnter
  if member(sprite(102).member).scrollTop > 4 then
    sprite(spriteNum).member = "pijlv2opdown"
    cursor(280)
  end if
end

on mouseLeave
  cursor(-1)
  sprite(spriteNum).member = "pijlv2opnorm"
end